Application.ExecuteCommand("Find")
FindDlg.FindBy = "Line Width"
FindDlg.LeftList.Selected(3) = true
FindDlg.RightList.Selected(0) = true
FindDlg.Apply.Click()
DlgPrompt.Question("Some items are invisible and were not selected").Answer(mbOK)